Страница 2 из 8 < 1 2 3 4 > Последняя » Показывать 40 сообщений этой темы на одной странице

Trampl1n 18.10.2012 13:25 Re: Четверга нить [18.10]   Тоже заболел. С утра winlock пишу на Delphi, пердак бомбит,:85: не могу стиль формы настроить. PHP код: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure Edit1Change(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.CreateParams(var T : TCreateParams); begin inherited Createparams(T); with T do   Style := (Style or WS_POPUP) and not WS_DLGFRAME; end; procedure TForm1.Button1Click(Sender: TObject); begin end; procedure TForm1.Edit1Change(Sender: TObject); begin     Edit1.PasswordChar:='*'; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.  Ругается на uses unit2; 4 часа стиль формы настраиваю. :99:

Tetrarch 18.10.2012 13:26 Re: Четверга нить [18.10]   Цитата: Сообщение от Trampl1n (Сообщение 1357153) Тоже заболел. С утра winlock пишу на Delphi, пердак бомбит,:85: не могу стиль формы настроить. PHP код: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure Edit1Change(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.CreateParams(var T : TCreateParams); begin inherited Createparams(T); with T do   Style := (Style or WS_POPUP) and not WS_DLGFRAME; end; procedure TForm1.Button1Click(Sender: TObject); begin end; procedure TForm1.Edit1Change(Sender: TObject); begin     Edit1.PasswordChar:='*'; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.  Ругается на uses unit2; 4 часа стиль формы настраиваю. :99: А мог бы на лиспе программировать. :45:

Oss 18.10.2012 13:28 Re: Четверга нить [18.10]   Вложений: 1 Цитата: Сообщение от Darchic (Сообщение 1357147) Заболел (хуйня какая-то: горло болит, кашель, слабость, а температура 35.9), не пошел на учебу. Буду дротить Диаблу. Цитата: Сообщение от Trampl1n (Сообщение 1357153) Тоже заболел. С утра winlock пишу на Delphi, пердак бомбит,:85: не могу стиль формы настроить. PHP код: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure Edit1Change(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.CreateParams(var T : TCreateParams); begin inherited Createparams(T); with T do   Style := (Style or WS_POPUP) and not WS_DLGFRAME; end; procedure TForm1.Button1Click(Sender: TObject); begin end; procedure TForm1.Edit1Change(Sender: TObject); begin     Edit1.PasswordChar:='*'; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.  Ругается на uses unit2; 4 часа стиль формы настраиваю. :99: Вложение 66430 Все заболелиokaay Выздоравливайте :3

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot
Кто скопирует информацию с данного портала без ссылки на него, тот лох ибаный! \m/