F.A.Q(Вопрос-Ответ)

[ben95]

1)Вопрос: Как сделать вкладку как на скриншоте?

Ответ: Во вкладке Win32 Есть компонент PageControl размещаем PageControl на форме, теперь самое главное делаем Вкладку щёлкаем правой кнопкой мыши по PageControl на формеме в открывшемся меню жмём New Page ну вот и всё!
2)Вопрос: Как сделать чтобы в edit было спрятано в него пишут ?(ну как обычно пороли прячут под *)!
Ответ: установите на форме edit и в инспекторе объектов на против PasswordChar замес-то #0 пишем *(чтобы написать * зажмите шифт и нажмите кнопку 8)!

3)Вопрос: Как заставить программу закрывается при клике button?
Ответ: Это очень просто размещаем кнопку делаем двойной клик по ней и в листинге мы увидим

1procedure TForm1.Button1Click(Sender: TObject);  
2begin  	  
4end;  .	  
6.end.

Там где пустое место между begin и end пиши Close;
у нас должно всё выгледить так

procedure TForm1.Button1Click(Sender: TObject);  
begin  
Close;  
end;    
end

Буду дополнять)

[ben95]

4)Вопрос: Как программно открывать и закрывать CD- room?
Ответ: На форму помещаем 2 button,в caption первого бутон пишем, открыт CD
В caption бутона 2. Закрыть CD так теперь переходим в листинг удаляем всё что в нём есть и пишем:

interface

uses
  Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MciSendString('Set CDAudio Door Open Wait', Nil, 0, Handle);{Открыть CD-ROM}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MciSendString('Set CDAudio Door Closed Wait', Nil, 0, Handle);{Закрыть CD-ROM}
end;

end.

[ben95]

5)Вопрос: как добавить текст в memo?
Ответ: в Инспекторе объектов есть свойство Lines жмём на него а потом редактируем текст как хотим!
6)Вопрос: как сделать, чтобы в запушенной программе текст в memo нельзя было редактировать?
Ответь: в Инспекторе объектов есть свойство ReadOnly ставим там False.

[Vedrus]

7)Вопрос: Есть ли жизнь на марсе?

Ответ: На форму помещаем 1 button,в caption пишем, "Есть ли жизнь на марсе?". Так теперь переходим в листинг удаляем всё что в нём есть и пишем:

interface   
  
uses   
  Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
  Dialogs, StdCtrls, ExtCtrls;   
  
  
type   
  TForm1 = class(TForm)   
    Button1: TButton;   
    procedure Button1Click(Sender: TObject);   
  private   
    { Private declarations }   
  public   
    { Public declarations }   
  end;   
  
var   
  Form1: TForm1;   
  
implementation   
  
{$R *.dfm}   
  
procedure TForm1.Button1Click(Sender: TObject);   
begin   
MessageBox("А фиг его знает!")
end;   
  
end.

[ben95]

Сообщение от Vedrus

7)Вопрос: Есть ли жизнь на марсе?

Ответ: На форму помещаем 1 button,в caption пишем, "Есть ли жизнь на марсе?". Так теперь переходим в листинг удаляем всё что в нём есть и пишем:

interface   
  
uses   
  Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   
  Dialogs, StdCtrls, ExtCtrls;   
  
  
type   
  TForm1 = class(TForm)   
    Button1: TButton;   
    procedure Button1Click(Sender: TObject);   
  private   
    { Private declarations }   
  public   
    { Public declarations }   
  end;   
  
var   
  Form1: TForm1;   
  
implementation   
  
{$R *.dfm}   
  
procedure TForm1.Button1Click(Sender: TObject);   
begin   
MessageBox("А фиг его знает!")
end;   
  
end.

вот те результат твоей проги!
[Error] Unit1.pas(26): Unknown directive: 'MessageBox' так это исправил теперь [Error] Unit1.pas(28): Incompatible types: 'HWND' and 'String'

[masterprog]

А для чего вообще вы сделали эту тему, просто я не знаю чего мне написать то сюда!

[ben95]

Сообщение от masterprog

А для чего вообще вы сделали эту тему, просто я не знаю чего мне написать то сюда!

пиши вопрос получиш ответ Админ удали весь флуд!

[фЁдОр]

Будь моя воля - я б эту тему сразу же "Пинком под зад"!
Странно, что в этом разделе столько модераторов, а все они молчат - неужели считают эту тему нужной?
ben95 - не обижайся, но это реально бред!

[masterprog]

Вопрос: Как при нажатии на кнопку 'Стрелка вниз' заставить Shape двигаться всё время (безостановочно) вниз?

[masterprog]

Вопрос: Как закрыть эту тему?
Ответ:
procedure CloseTema;
begin
close;
end;