- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
ABitmap: TBitmap;
begin
// Скрыть заголовок окна
BorderStyle:= bsNone;
ABitmap:= TBitmap.Create;
// Загружаем картинку
ABitmap.LoadFromFile('1.bmp');
ABitmap.Monochrome:=True;
SetShape(ABitmap);
ABitmap.Free;
end;
Если я помещаю этот код в обработчик нажатия кнопки, то он срабатывает. А если помещаю в FormCreate, то не срабатывает. Как сделать чтобы он срабатывал в FormCreate?